home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
VIP Digital Photo Book 3: Women
/
VIP Digital Photo Book 3: Women.iso
/
pc
/
windows cumulus browser
/
browser
/
data.z
/
GOTODLG.FR_
/
GOTODLG.FR
(
.txt
)
Wrap
Visual Basic Form
|
1997-11-21
|
3KB
|
104 lines
VERSION 4.00
Begin VB.Form frmGotoDlg
BorderStyle = 3 'Fixed Dialog
Caption = "Go To"
ClientHeight = 1260
ClientLeft = 4536
ClientTop = 6996
ClientWidth = 3108
ControlBox = 0 'False
Height = 1644
Left = 4488
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1260
ScaleWidth = 3108
ShowInTaskbar = 0 'False
Top = 6660
Width = 3204
Begin VB.TextBox txtPageNo
Height = 330
Left = 1440
TabIndex = 4
Text = "0"
Top = 210
Width = 855
End
Begin VB.CommandButton cmdCancelButton
Caption = "Cancel"
Height = 330
Left = 1680
TabIndex = 2
Top = 735
Width = 1215
End
Begin VB.CommandButton cmdOKbutton
Caption = "OK"
Height = 330
Left = 120
TabIndex = 1
Top = 735
Width = 1215
End
Begin Spin.SpinButton SpinButton1
Height = 324
Left = 2280
TabIndex = 3
Top = 216
Width = 252
_Version = 65536
_ExtentX = 445
_ExtentY = 572
_StockProps = 73
End
Begin VB.Label lblLabel1
Alignment = 1 'Right Justify
Caption = "Go To Page"
Height = 330
Left = 240
TabIndex = 0
Top = 210
Width = 975
End
Attribute VB_Name = "frmGotoDlg"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub cmdCancelButton_Click()
Unload frmGotoDlg
End Sub
Private Sub cmdOKbutton_Click()
'convert page number text from edit box to an int
'and display the new page
frmSample.oleImgEdit1.page = CInt(txtPageNo.Text)
frmSample.oleImgEdit1.Display
frmSample.oleImgThumbnail1.DeselectAllThumbs
frmSample.oleImgThumbnail1.ThumbSelected(frmSample.oleImgEdit1.page) = True
Unload frmGotoDlg
End Sub
Private Sub Form_Load()
'convert current page number to string and display
'it in edit box
txtPageNo.Text = CStr(frmSample.oleImgEdit1.page)
End Sub
Private Sub SpinButton1_SpinDown()
'get page number text from edit box and convert
'it to an int
selPage = CInt(txtPageNo.Text)
'decrement selected page number
selPage = selPage - 1
'convert page number back to string and display it
'in edit box
txtPageNo.Text = CStr(selPage)
End Sub
Private Sub SpinButton1_SpinUp()
'get page number text from edit box and convert
'it to an int
selPage = CInt(txtPageNo.Text)
'increment selected page number
selPage = selPage + 1
'convert page number back to string and display it
'in edit box
txtPageNo.Text = CStr(selPage)
End Sub